home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / Programming / Programming Languages / Pocket Forth 6 / Source / System7Resources.txt < prev    next >
Encoding:
Text File  |  1992-05-07  |  12.6 KB  |  400 lines  |  [TEXT/McSk]
  1. ; this is: System7Resources.txt  7/4/91  1:08:00AM
  2. ; Mon Apr 13 1992  00:00:00 -- PocketForth 0.6
  3. ; alert color tables
  4.  
  5. .ALIGN 2
  6. RESOURCE    'actb'    257    'About'
  7.     DC.L    $00000000,$00000004    ; Color table for About dialog
  8.     DC.L    $0000FFFF,$FFFFCCCC    
  9.     DC.L    $00019999,$33333333
  10.     DC.L    $00020000,$00000000
  11.     DC.L    $00030000,$00000000
  12.     DC.L    $0004FFFF,$FFFFFFFF
  13.  
  14. .ALIGN 2
  15. RESOURCE    'actb'    258    'Red Alert'
  16.     DC.L    $00000000,$00000004    ; color table for red alert
  17.     DC.L    $0000AAAA,$00000000
  18.     DC.L    $00010000,$00000000
  19.     DC.L    $00020000,$00000000
  20.     DC.L    $00030000,$00000000
  21.     DC.L    $0004FFFF,$FFFFFFFF
  22.  
  23. ; help resources
  24.  
  25. .ALIGN 2
  26. RESOURCE    'hfdr'    59840    ; unsigned -5696
  27.     DC.W    2    ; version
  28.     DC.L    0,0    ; options+ID
  29.     DC.W    1    ; number
  30.  
  31.     DC.W    20,3    ; HMStringResItem
  32.     DC.W    1,16    ; STR# 1, item 18
  33.     DC.W    1,16
  34.     DC.W    1,16
  35.     DC.W    1,16    
  36.  
  37. .ALIGN 2
  38. RESOURCE    'hmnu'    1    'Apple'
  39.     DC.W    2    ; version
  40.     DC.L    0,0    ; options
  41.     DC.W    2    ; number of items+1
  42.  
  43.     DC.W    4,256    ; HMSkipItem for missing & null
  44.  
  45.     DC.W    4,256    ; HMSkipItem for title
  46.  
  47.     DC.W    20,3    ; HMStringResItem
  48.     DC.W    1,1    ; STR# 1, item 1
  49.     DC.W    0,0    ; dimmed menu item
  50.     DC.W    0,0    ;
  51.     DC.W    0,0    ;
  52.  
  53. .ALIGN 2
  54. RESOURCE    'hmnu'    2    'File'
  55.     DC.W    2    ; version
  56.     DC.L    0,0    ; options
  57.     DC.W    9    ; number of items+1
  58.  
  59.     DC.W    4,256    ; HMSkipItem for missing & null
  60.  
  61.     DC.W    20,3    ; HMStringResItem
  62.     DC.W    1,2    ; STR# 1, item 2
  63.     DC.W    0,0    ; dimmed menu title
  64.     DC.W    0,0    ;
  65.     DC.W    0,0    ;
  66.  
  67.     DC.W    20,3    ; HMStringResItem
  68.     DC.W    1,3    ; STR# 1, item 3
  69.     DC.W    0,0    ; dimmed menu item
  70.     DC.W    0,0    ;
  71.     DC.W    0,0    ;
  72.  
  73.     DC.W    4,256    ; HMSkipItem for seperator
  74.  
  75.     DC.W    20,3    ; HMStringResItem
  76.     DC.W    1,4    ; STR# 1, item 4
  77.     DC.W    0,0    ; dimmed menu item
  78.     DC.W    0,0    ;
  79.     DC.W    0,0    ;
  80.  
  81.     DC.W    20,3    ; HMStringResItem
  82.     DC.W    1,5    ; STR# 1, item 5
  83.     DC.W    0,0    ; dimmed menu item
  84.     DC.W    0,0    ;
  85.     DC.W    0,0    ;
  86.  
  87.     DC.W    4,256    ; HMSkipItem for seperator
  88.  
  89.     DC.W    20,3    ; HMStringResItem
  90.     DC.W    1,6    ; STR# 1, item 6
  91.     DC.W    0,0    ; dimmed menu item
  92.     DC.W    0,0    ;
  93.     DC.W    0,0    ;
  94.  
  95.     DC.W    4,256    ; HMSkipItem for seperator
  96.  
  97.     DC.W    20,3    ; HMStringResItem
  98.     DC.W    1,7    ; STR# 1, item 7
  99.     DC.W    0,0    ; dimmed menu item
  100.     DC.W    0,0    ;
  101.     DC.W    0,0    ;
  102.  
  103. .ALIGN 2
  104. RESOURCE    'hmnu'    3    'Edit'
  105.     DC.W    2    ; version
  106.     DC.L    0,0    ; options
  107.     DC.W    7    ; number of items+1
  108.  
  109.     DC.W    4,256    ; HMSkipItem for missing & null
  110.  
  111.     DC.W    20,3    ; HMStringResItem
  112.     DC.W    1,8    ; STR# 1, item 8
  113.     DC.W    0,0    ; dimmed menu title
  114.     DC.W    0,0    ;
  115.     DC.W    0,0    ;
  116.  
  117.     DC.W    20,3    ; HMStringResItem
  118.     DC.W    1,9    ; STR# 1, item 9
  119.     DC.W    0,0    ; dimmed menu item
  120.     DC.W    0,0    ;
  121.     DC.W    0,0    ;
  122.  
  123.     DC.W    4,256    ; HMSkipItem for seperator
  124.  
  125.     DC.W    20,3    ; HMStringResItem
  126.     DC.W    1,10    ; STR# 1, item 10
  127.     DC.W    0,0    ; dimmed menu item
  128.     DC.W    0,0    ;
  129.     DC.W    0,0    ;
  130.  
  131.     DC.W    20,3    ; HMStringResItem
  132.     DC.W    1,11    ; STR# 1, item 11
  133.     DC.W    0,0    ; dimmed menu item
  134.     DC.W    0,0    ;
  135.     DC.W    0,0    ;
  136.  
  137.     DC.W    20,3    ; HMStringResItem
  138.     DC.W    1,12    ; STR# 1, item 12
  139.     DC.W    0,0    ; dimmed menu item
  140.     DC.W    0,0    ;
  141.     DC.W    0,0    ;
  142.  
  143.     DC.W    20,3    ; HMStringResItem
  144.     DC.W    1,13    ; STR# 1, item 13
  145.     DC.W    0,0    ; dimmed menu item
  146.     DC.W    0,0    ;
  147.     DC.W    0,0    ;
  148.  
  149. .ALIGN 2
  150. RESOURCE    'hrct'    128
  151.     DC.W    2    ; version
  152.     DC.L    0,0    ; options+ID
  153.     DC.W    1    ; number of rectangles
  154.  
  155.     DC.W    20,3    ; HMStringResItem
  156.     DC.W    35,55    ;
  157.     DC.W    0,0,1024,1024    ; hot rect
  158.     DC.W    1,14    ; STR# 1, item 14
  159.  
  160. .ALIGN 2
  161. RESOURCE    'hwin'    128
  162.     DC.W    2    ; version
  163.     DC.L    0    ; options
  164.     DC.W    2    ; number of rectangles
  165.  
  166.     DC.W    128    ; ID of hrct
  167.     DC.L    'hrct'
  168.     DC.W    12    ; length of string to compare
  169.     DC.B    12,'Pocket Forth'    ; window name
  170.  
  171. .ALIGN 2
  172. RESOURCE    'hdlg'    257
  173.     DC.W    2    ; version
  174.     DC.W    0    ; start with item 0
  175.     DC.L    0,0    ; options+ID+variation
  176.     DC.W    1    ; number of items
  177.  
  178.     DC.W    4,256    ; HMSkipItem for missing & null
  179.  
  180.     DC.W    20,3    ; HMStringResItem
  181.     DC.W    50,190    ; tip location
  182.     DC.W    0,0,0,0    ; default alternate rect
  183.     DC.W    1,15    ; string for enabled
  184.     DC.W    0,0    ; never dimmed
  185.     DC.W    0,0    ; or checked
  186.     DC.W    0,0    ; or marked either
  187.     
  188. .ALIGN 2
  189. RESOURCE    'hdlg'    259
  190.     DC.W    2    ; version
  191.     DC.W    0    ; start with item 0
  192.     DC.L    0,0    ; options+ID+variation
  193.     DC.W    2    ; number of items
  194.  
  195.     DC.W    4,256    ; HMSkipItem for missing & null
  196.  
  197.     DC.W    20,3    ; HMStringResItem
  198.     DC.W    0,0    ; tip location
  199.     DC.W    0,0,0,0    ; default alternate rect
  200.     DC.W    1,17    ; string for enabled
  201.     DC.W    0,0    ; never dimmed
  202.     DC.W    0,0    ; or checked
  203.     DC.W    0,0    ; or marked either
  204.     
  205.     DC.W    20,3    ; HMStringResItem
  206.     DC.W    0,0    ; tip location
  207.     DC.W    0,0,0,0    ; default alternate rect
  208.     DC.W    1,18    ; string for enabled
  209.     DC.W    0,0    ; never dimmed
  210.     DC.W    0,0    ; or checked
  211.     DC.W    0,0    ; or marked either
  212.     
  213. .ALIGN 2
  214. RESOURCE    'STR#'    1
  215.     DC.W    17    ; number of strings
  216.  
  217.     ; item 1
  218.     DC.B    67,'Introduces the author and gives information '
  219.     DC.B    'about the application. '
  220.  
  221.     ; item 2
  222.     DC.B    122,'File menu',13,13,'Items in this menu select, '
  223.     DC.B    'save, and print Pocket Forth programs.  You can '
  224.     DC.B    'also debug and quit the application.'
  225.  
  226.     ; item 3
  227.     DC.B    213,'Displays a dialog box that allows you to select '
  228.     DC.B    'a text document.',13,13,'If the document contains a '
  229.     DC.B    'Pocket Forth program, it will be interpreted.  If '
  230.     DC.B    'the document is not a program, an interpreter error '
  231.     DC.B    'will be displayed.'
  232.  
  233.     ; item 4
  234.     DC.B    133,'Changes to Pocket Forth are made '
  235.     DC.B    'permanent.  Opened documents are not effected.'
  236.     DC.B    13,13,'        CAUTION!',13,'Use only on a copy of '
  237.     DC.B    'Pocket Forth!'
  238.  
  239.     ; item 5
  240.     DC.B    254,'              DANGER!',13,'Do not release the '
  241.     DC.B    'button!',13,13,'Unless you have installed a '
  242.     DC.B    'debugging application you will get a bomb box!  '
  243.     DC.B    'You can then use the "Resume" (or "Continue") '
  244.     DC.B    'button to quit.',13,13,'A debugger, such as TMON, '
  245.     DC.B    'Macsbug, etc., is entered if installed.'
  246.  
  247.     ; item 6
  248.     DC.B    67,'Beep the speaker.',13,13,'Printing is left as an '
  249.     DC.B    'excercize for the reader.'
  250.  
  251.     ; item 7
  252.     DC.B    105,'Quit Pocket Forth.',13,13
  253.     DC.B    'Unless you have Saved prior to Quitting, '
  254.     DC.B    'all additions and changes will be disgarded.'
  255.  
  256.     ; item 8
  257.     DC.B    104,'Edit menu',13,13,'Paste programs into Pocket Forth.'
  258.     DC.B    13,13,'Also contains commands for working with text and '
  259.     DC.B    'graphics.'
  260.  
  261.     ; item 9
  262.     DC.B    39,'Nothing can be Undone, this just beeps.'
  263.  
  264.     ; item 10
  265.     DC.B    42,'You cannot Cut anything.  This just beeps.'
  266.  
  267.     ; item 11
  268.     DC.B    64,'There is nothing to Copy, this just beeps.'
  269.     DC.B    13,13,'Is this getting old?'
  270.  
  271.     ; item 12
  272.     DC.B    161,'Interpret a Pocket Forth program from the '
  273.     DC.B    'clipboard as if you had typed it in.  If the '
  274.     DC.B    'clipboard contains text that is not a program, an '
  275.     DC.B    'error will be indicated.'
  276.  
  277.     ; item 13
  278.     DC.B    43,'There is nothing to Clear, this just beeps.'
  279.  
  280.     ; item 14
  281.     DC.B    141,'Main Window.',13,13,'Type or paste Pocket '
  282.     DC.B    'Forth ‘words’ into this window.  The text is interpreted '
  283.     DC.B    'after each line and any output is displayed here.'
  284.  
  285.     ; item 15
  286.     DC.B    228,'Pocket Forth is FREE!',13
  287.     DC.B    13,'Contact me at any of the following addresses:'
  288.     DC.B    13,' Email:     heilman@pc.maricopa.edu'
  289.     DC.B    13,' US Mail:   box 8345, Phoenix 85066'
  290.     DC.B    13,' CompuServe: [70566,1474]'
  291.     DC.B    13,' AOL:       cheilman'
  292.     DC.B    13,13,'Click this window to close this dialog.'
  293.  
  294.     ; item 16
  295.     DC.B    96,'Pocket Forth',13,13
  296.     DC.B    'This is a programming language. Use this '
  297.     DC.B    'application to create other applications.'
  298.  
  299.     ; item 17
  300.     DC.B    243,'Click this button to replace the dictionary on the '
  301.     DC.B    'disk with the dictionary image in memory.  All '
  302.     DC.B    'definitions and variables are saved in their current '
  303.     DC.B    'state.',13,13,'The old version is overwritten, so be '
  304.     DC.B    'sure to have a backup copy before you do this.'
  305.  
  306. ; icons
  307.  
  308. .ALIGN 2
  309. RESOURCE    'ics#'    128
  310.     DC.L    $07C01830,$20084184,$43448302,$87828302
  311.     DC.L    $83028302,$47844004,$20081830,$07C00000
  312.     DC.L    $07C01FF0,$3FF87FFC,$7FFCFFFE,$FFFEFFFE
  313.     DC.L    $FFFEFFFE,$7FFC7FFC,$3FF81FF0,$07C00000
  314.  
  315. .ALIGN 2
  316. RESOURCE    'icl4'    128
  317.     DC.L    $00000000,$00000000,$0FFFFFFF,$F0000000,$00000000,$0000000F,$FF555555,$5FFF0000
  318.     DC.L    $00000000,$000000FF,$00F55555,$5555F000,$00000000,$000000FF,$000F5555,$55555F00
  319.     DC.L    $00000000,$00000000,$000F5555,$555555F0,$00000000,$00000000,$000F5555,$555555F0
  320.     DC.L    $00000000,$00000000,$000F5555,$5555555F,$00000000,$FFFFFF00,$00FF5555,$5555555F
  321.     DC.L    $0000FFFF,$000000F0,$00F01055,$5555555F,$00FF0000,$CCCCCDF0,$00F10105,$5555555F
  322.     DC.L    $0F00CCCC,$CCCCCDF0,$00FFF010,$5555555F,$0F0CCC00,$0CCCCDF0,$0F060F01,$5555555F
  323.     DC.L    $F00C0003,$32CCCDF0,$0F1FF010,$5555555F,$F0CC0033,$03CDCDF0,$FC010101,$0D55555F
  324.     DC.L    $F0C00033,$C0CDDDF0,$0FC01010,$155555F0,$F0C00333,$3CCCDCDF,$00333101,$015555F0
  325.     DC.L    $F0C00033,$CCCDDCDF,$00F31010,$1C555F00,$F0CC0C33,$CCCDDCDF,$00FC0101,$CC55F000
  326.     DC.L    $F0CCC333,$3CDDCCDF,$000FFFFC,$1C55F000,$F0CCDDCC,$DDDDCCDF,$0000000F,$CFFFFF00
  327.     DC.L    $F0CCCCDD,$DDCCCCDF,$00000000,$FF0000F0,$F0CCCCCC,$CCCCCCDF,$00000000,$F0000000
  328.     DC.L    $F0DDDDDD,$DDDDDCDF,$0000000F,$00DD0000,$F0DDDDDD,$DDDDDDF0,$00000000,$0DEEE000
  329.     DC.L    $F0DDDDDD,$DDDDDDF0,$00000000,$0DCCE000,$FFFDFFFF,$FFFFFDF0,$00000000,$0DCCE000
  330.     DC.L    $00FFF000,$00000FF0,$00000000,$DEEEEE00,$F0000000,$00000000,$00000DDD,$EEE13FAF
  331.     DC.L    $000F0000,$00000000,$0000DEEE,$EEEAFFF0,$000000F0,$00000000,$0000DEEE,$EAFF0000
  332.     DC.L    $00000000,$0F00F0FF,$0FFFFFFF,$FF000000,$00000000,$00000000,$00000000,$00000000
  333.  
  334. .ALIGN 2
  335. RESOURCE    'ics4'    128
  336.     DC.L    $00000EEE,$EE000000,$000EE00C,$CCEE0000
  337.     DC.L    $00E000C0,$C0CCE000,$0E000003,$32CCDE00
  338.     DC.L    $0E000033,$C32CCE00,$E0000033,$0CCCDDE0
  339.     DC.L    $E0000333,$3CCCCDE0,$E00C0033,$CCCCDDE0
  340.     DC.L    $E0C0C033,$CCCCDDE0,$E00CCC33,$CCCCDDE0
  341.     DC.L    $0ECCC333,$3CCDDE00,$0ECCCCCC,$CCDDDE00
  342.     DC.L    $00ECCCCC,$DDDDE000,$000EEDDD,$DDEE0000
  343.     DC.L    $00000EEE,$EE000000,$00000000,$00000000
  344.  
  345. .ALIGN 2
  346. RESOURCE    'ics8'    128
  347.     DC.L    $00000000,$00ABABAB,$ABAB0000,$00000000
  348.     DC.L    $000000AB,$AB0101F6,$F6F6ABAB,$00000000
  349.     DC.L    $0000AB01,$0101F601,$F601F608,$AB000000
  350.     DC.L    $00AB0101,$010101D8,$D8160808,$33AB0000
  351.     DC.L    $00AB0101,$0101D8D8,$F6D816F6,$08AB0000
  352.     DC.L    $AB010101,$0101D8D8,$01F6F608,$3333AB00
  353.     DC.L    $AB010101,$01D8D8D8,$D8F6F608,$0833AB00
  354.     DC.L    $AB0101F6,$0101D8D8,$F6F60808,$3333AB00
  355.     DC.L    $AB01F601,$F601D8D8,$F608F608,$3333AB00
  356.     DC.L    $AB0101F6,$F6F6D8D8,$08080808,$3333AB00
  357.     DC.L    $00ABF6F6,$08D8D8D8,$D8080833,$33AB0000
  358.     DC.L    $00ABF608,$F6080808,$08083333,$33AB0000
  359.     DC.L    $0000AB08,$08080808,$33333333,$AB000000
  360.     DC.L    $000000AB,$AB333333,$3333ABAB,$00000000
  361.     DC.L    $00000000,$00ABABAB,$ABAB0000,$00000000
  362.     DC.L    $00000000,$00000000,$00000000,$00000000
  363.  
  364. .ALIGN 2
  365. RESOURCE    'icl8'    128
  366.     DC.L    $00000000,$00000000,$00000000,$00000000,$00FFFFFF,$FFFFFFFF,$FF000000,$00000000
  367.     DC.L    $00000000,$00000000,$00000000,$000000FF,$FFFFABAB,$ABABABAB,$ABFFFFFF,$00000000
  368.     DC.L    $00000000,$00000000,$00000000,$0000FFFF,$0000FFAB,$ABABABAB,$ABABABAB,$FF000000
  369.     DC.L    $00000000,$00000000,$00000000,$0000FFFF,$000000FF,$ABABABAB,$ABABABAB,$ABFF0000
  370.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
  371.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
  372.     DC.L    $00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABABFF
  373.     DC.L    $00000000,$00000000,$FFFFFFFF,$FFFF0000,$0000FFFF,$ABABABAB,$ABABABAB,$ABABABFF
  374.     DC.L    $00000000,$FFFFFFFF,$01010101,$0101FF00,$0000FF01,$0101ABAB,$ABABABAB,$ABABABFF
  375.     DC.L    $0000FFFF,$01010101,$08080808,$0833FF00,$0000FF01,$010101AB,$ABABABAB,$ABABABFF
  376.     DC.L    $00FF0101,$01080808,$08080808,$0833FF00,$0000FFFF,$FF010101,$ABABABAB,$ABABABFF
  377.     DC.L    $00FF0108,$080801F6,$01F60808,$0833FF00,$00FF48EC,$48FF0101,$ABABABAB,$ABABABFF
  378.     DC.L    $FF010108,$010101D8,$D816F608,$0833FF00,$00FF01FF,$FF010101,$ABABABAB,$ABABABFF
  379.     DC.L    $FF010808,$0101D8D8,$01D80833,$0833FF00,$FF080101,$01010101,$0133ABAB,$ABABABFF
  380.     DC.L    $FF010801,$F601D8D8,$F601F633,$3308FF00,$00FF0801,$01010101,$01ABABAB,$ABABFF00
  381.     DC.L    $FF0108F6,$01D8D8D8,$D8F60808,$330833FF,$0000D8D8,$D8010101,$0101ABAB,$ABABFF00
  382.     DC.L    $FF0108F6,$F601D8D8,$F6080833,$330833FF,$0000FFD8,$01010101,$0108ABAB,$ABFF0000
  383.     DC.L    $FF0108F6,$08F6D8D8,$08F60833,$330833FF,$0000FF08,$01010101,$3301ABAB,$FF000000
  384.     DC.L    $FF010808,$F6D8D8D8,$D8083333,$080833FF,$000000FF,$FFFFFF08,$0108ABAB,$FF000000
  385.     DC.L    $FF010808,$33330808,$33333333,$080833FF,$00000000,$000000FF,$01FFFFFF,$FFFF0000
  386.     DC.L    $FF010808,$08083333,$33330808,$080833FF,$00000000,$00000000,$FFFF0000,$0000FF00
  387.     DC.L    $FF010808,$08080808,$08080808,$080833FF,$00000000,$00000000,$FF000000,$00000000
  388.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F90833FF,$00000000,$000000FF,$0000FAFA,$00000000
  389.     DC.L    $FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F933FF00,$00000000,$00000000,$00FAFBFC,$FC000000
  390.     DC.L    $FF013333,$33333333,$33333333,$3333FF00,$00000000,$00000000,$00FAF6F6,$FC000000
  391.     DC.L    $FFFFFF33,$FFFFFFFF,$FFFFFFFF,$FF33FF00,$00000000,$00000000,$00FAF6F6,$FC000000
  392.     DC.L    $0000FFFF,$FF000000,$00000000,$00FFFF00,$00000000,$00000000,$FAFBFCFC,$FCFC0000
  393.     DC.L    $FF000000,$00000000,$00000000,$00000000,$00000000,$00FAFAFA,$FBFCFC05,$D8FFFDFF
  394.     DC.L    $000000FF,$00000000,$00000000,$00000000,$00000000,$FAFBFBFC,$FCFCFCFD,$FFFFFF00
  395.     DC.L    $00000000,$0000FF00,$00000000,$00000000,$00000000,$FAFCFCFC,$FCFDFFFF,$00000000
  396.     DC.L    $00000000,$00000000,$00FF0000,$FF00FFFF,$00FFFFFF,$FFFFFFFF,$FFFF0000,$00000000
  397.     DC.L    $00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  398.  
  399.     END
  400.